home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / clipper / nannws22.zip / DBORDER.ASM < prev    next >
Assembly Source File  |  1987-12-08  |  1KB  |  45 lines

  1. ; FUNCTION BORDER
  2. ; USAGE: BORDER(N)
  3. ; N IS THE COLOR NUMBER TO WHICH YOU WANT THE BORDER SET:
  4. ;
  5. ;     0  Black              8  Dark grey
  6. ;     1  Blue               9  Light blue
  7. ;     2  Green             10  Light green
  8. ;     3  Cyan              11  Light cyan
  9. ;     4  Red               12  Light red
  10. ;     5  Magenta           13  Light magenta
  11. ;     6  Brown             14  Yellow
  12. ;     7  Light grey        15  Bright white
  13.  
  14. PUBLIC            BORDER
  15.  
  16. EXTRN             _PARNI:FAR
  17.  
  18. CODESG            SEGMENT BYTE     'PROG'
  19.                   ASSUME  CS:CODESG
  20.  
  21. BORDER  PROC      FAR
  22.  
  23. ; INITIALIZATION
  24.          PUSH     BP
  25.          MOV      BP,SP
  26.  
  27. ; GET PARAMETER
  28.          MOV      AX,1
  29.          PUSH     AX
  30.          CALL     _PARNI
  31.          ADD      SP,2
  32.  
  33. ; MOVE COLOR NUMBER INTO BH AND 
  34. ; SET UP REGISTERS FOR INT 10H CALL
  35.          MOV       BH,AL
  36.          MOV       AH,10H
  37.          MOV       AL,1
  38.          INT       10H
  39.  
  40.          POP       BP
  41.          RET
  42. BORDER             ENDP
  43. CODESG             ENDS
  44.                    END
  45.